home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / make / icmake-6.000 / icmake-6 / icmake / un / funpopva.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-02-08  |  534 b   |  21 lines
  1. #include "icmun.h"
  2.  
  3. void fun_pop_var ()
  4. {
  5.     INT16
  6.         index;
  7.  
  8.     index = (INT16) getint16 (infile);
  9.     dumpint (index);
  10.  
  11.     if ((UNS16)index < 0x8000)
  12.         printf ("pop global %s %s\n", varname (var [index].type),
  13.                                     printvar (index));
  14.     else if (index < (INT16) 0xc000)
  15.         printf ("pop local %s %s\n",
  16.                    varname (local_types[ (INT16) 0xc000 - (INT16) 1 - index]),
  17.                    printvar (index));
  18.     else
  19.         printf ("pop arg %s\n", printvar (index));
  20. }
  21.